COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	8/24/74	DEFINITIONS COMMON TO PASSES 1 AND 2 OF PUB 
C00007 ENDMK
C⊗;
COMMENT 8/24/74	DEFINITIONS COMMON TO PASSES 1 AND 2 OF PUB ;

DEFINE		TES = [COMMENT], RKJ = [COMMENT], CMU = [COMMENT],
		PLK = [COMMENT], PJ = [COMMENT], RT01 = [COMMENT],
		TVR = [COMMENT], BH = [COMMENT] , DCS = [COMMENT],
                JFR = [COMMENT], ME  = [COMMENT];

IFCR PARCVER THENC REQUIRE "PARCPUB" SOURCE!FILE ; ENDC

DEFINE DSCR=[COMMENT ];
DSCR **** DYNAMIC ARRAY MANIPULATION PACKAGE ****
 ;
DEFINE TEMPO=['14], LPSA=['13];

external procedure BAIL;

EXTERNAL INTEGER SIMPLE PROCEDURE LRMAK(INTEGER L,H,D);
EXTERNAL INTEGER SIMPLE PROCEDURE LRCOP(INTEGER A);
EXTERNAL SIMPLE PROCEDURE ARYEL(INTEGER I);

DSCR PTR ← CREATE(LOWBND,HIBND)
CAL MACRO -- EXPRESSION
PAR LOWBND IS LOWER BOUND FOR INTEGER ARRAY
 HIBND IS UPPER BOUND
RES PTR IS AN ARRAY DESCRIPTOR
DES CALLS LRMAK TO GET AN UNMARKED ARRAY
;

DEFINE CREATE(L,H)= [LRMAK(L,H,1)];

DSCR MAKEBE(PTR,ARRAY)
CAL MACRO -- STATEMENT
PAR PTR IS INTEGER HOLDING ARRAY DESCRIPTOR
 ARRAY IS DUMMY TO RECEIVE DESCRIPTOR (DON'T LEAVE THAT BLOCK!)
DES EFFECT IS "ARRAY←PTR", BUT SAIL WON'T DO THAT DIRECTLY
;

DEFINE MAKEBE(I,A)="
 START!CODE
  MOVE TEMPO,I;
  MOVEM  TEMPO,A;
 END ";

TERNAL INTEGER

	comment the next few variables added by jlj for the new BYTEIN procedure
		and for the modified PERUSEFONT procedure ;
		BufPointer,     comment byte pointer ;
		BufferCount,    comment # words remaining in the buffer ;
		RecordNumber,   comment # of the last record read ;
	comment end of new variables ;

	DOPASS3,	COMMENT RKJ CMU flag for pass 3;
	XCRIBL,		COMMENT TRUE IF IN XCRIBL MODE;
	LOFONT,HIFONT,	COMMENT WHICH ONES USED ;
	CHARW,		COMMENT WIDTH OF A TYPICAL "CHAR" ;
	WCW,		COMMENT WHATIS CW;
	BASELINE,	COMMENT FOR SU-AI UNDERLINE ;
	MINLFTMAR,	COMMENT (RASTERS) CAN'T PRINT CLOSER THAN THIS ;
	VBPI,		COMMENT DEVICE RASTER (VERTICAL);
	HBPI,		COMMENT DEVICE RASTER (HORIZONTAL) ;
	COMDUMMY ;
TERNAL STRING FWFILE;	Comment DCS font infor file name in full;

TERNAL INTEGER ARRAY FNTFIL[0:35],  COMMENT HOLDS CW POINTERS ;
		     RecBuf[0:127] ; 
comment last array added by jlj for PERUSEFONT procedure ;

TERNAL STRING ARRAY FNTNAME,XFNTNAME[0:35] ;
TERNAL THAFE INTEGER ARRAY FNTINF[0:35] ; COMMENT font info ;
comment conditional changed by jlj 5/9/83 ;
IFC PARCVER or sailver THENC TES 10/17/74 ;
TERNAL THAFE INTEGER ARRAY FNTNUMBER[0:35] ;
ENDC

DEFINE  CHARH		= [FNTINF[THISFONT]],
	STDCHARH	= [FNTINF[DEFAULTFONT]],
	CMUKST2		= [FALSE],
	COMDEFINE	= [] ;

DEFINE DEFAULTFONT =
	IFC CMUVER OR ISIVER THENC [10] ELSEC [1] ENDC;  RT01 10/24/74 ;